home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byteibm.arc / FRIED.ARC / IA.ASM < prev    next >
Encoding:
Assembly Source File  |  1985-07-12  |  738 b   |  61 lines
  1. NAME    IA
  2.  
  3. ; Integer multiply and divide
  4.  
  5. ; Assembly language subroutine source for PI program.
  6. ; Provided to Byte Magazine by:
  7.  
  8. ; MicroWay, Inc.
  9. ; PO Box 79
  10. ; Kingston MA 02364
  11.  
  12. ; (617) 746-7341
  13.  
  14. ; Copyright (C) MicroWay, Inc., 1986.
  15.  
  16. PUBLIC    IA
  17.  
  18. DGROUP    GROUP    COMMON
  19.  
  20. COMMON    SEGMENT    PARA COMMON 'BLANK'
  21.  
  22. _DSRC    DW    10240 DUP (?)
  23. _DDEST    DW    10240 DUP (?)
  24. SPC$1_    DD    1.0
  25. SPC$2_    DD    2.0
  26. SPC$3_    DD    3.0
  27. SV$A    DD    0.0
  28. SV$B    DD    ?
  29.  
  30. COMMON    ENDS
  31.  
  32. CODE    SEGMENT    WORD PUBLIC 'CODE'
  33.  
  34. ASSUME    CS:CODE, DS:DGROUP
  35.  
  36. IA    PROC    FAR
  37.  
  38.     MOV    CX,922
  39. INNER:
  40. ; Start of test code
  41.     MOV    AX,89
  42.     MOV    BX,73
  43. REPT    10
  44.  
  45.     IMUL    BX
  46.     IDIV    BX
  47.  
  48. ENDM
  49. ; End of test code
  50.  
  51.     LOOP    $INNER
  52.     RET
  53.  
  54. $INNER:    JMP    INNER
  55.  
  56. IA    ENDP
  57.  
  58. CODE    ENDS
  59.  
  60.     END
  61.